至顶网›软件频道 ›基础软件›一个ASP显示剩余磁盘空间的函数

一个ASP显示剩余磁盘空间的函数

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

这是一个ASP显示剩余磁盘空间的函数，需要的朋友可以拿去直接用就可以了

作者：中国设计秀www.cnwebshow.com　来源：IT专家网 2008年6月1日

　这是一个ASP显示剩余磁盘空间的函数，需要的朋友可以拿去直接用就可以了　　

Function ShowFreeSpace(drvPath)
　　Dim fso, d, s
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　Set d = fso.GetDrive(fso.GetDriveName(drvPath))
　　s = "驱动器 " & UCase(drvPath) & " - "
　　s = s & d.VolumeName &"
"
　　s = s & "可用空间：" & FormatNumber(d.FreeSpace/1024, 0)
　　s = s & "KB"
　　ShowFreeSpace = s
　　End Function

VIP专区

VIP用户

普通用户

闂傚倷绶￠崣搴ㄥ窗閺囩偐鏋庨柕蹇嬪灪婵ジ鏌曡箛瀣偓鏍綖閿燂拷

濠电姷顣介埀顒€鍟块埀顒€缍婇幃妯诲緞閹邦剛鐣洪梺闈浥堥弲婊勬叏濠婂牊鍋ㄦい鏍ㄧ〒閹藉啴鏌熼悜鈺傛珚鐎规洘宀稿畷鍫曞煛閸屾粍娈搁梻浣筋嚃閸ㄤ即宕㈤弽顐ュС闁挎稑瀚崰鍡樸亜閵堝懎濮┑鈽嗗亝濠㈡ê螞濡ゅ懏鍋傛繛鍡樻尭鐎氬鏌嶈閸撶喎顕ｉ渚婄矗濞撴埃鍋撻柣娑欐崌閺屾稑鈹戦崨顕呮▊缂備焦顨呴惌鍌炵嵁鎼淬劌鐒垫い鎺戝鐎氬銇勯弽銊ф噥缂佽妫濋弻鐔碱敇瑜嶉悘鑼磼鏉堛劎绠為柡灞芥喘閺佹劙宕熼鐘虫緰闂佽崵濮抽梽宥夊垂閽樺）锝夊礋椤栨稑娈滈梺纭呮硾椤洟鍩€椤掆偓閿曪妇妲愰弮鍫濈闁绘劕寮Δ鍛厸闁割偒鍋勯悘锕傛煕鐎ｎ偆澧紒鍌涘笧閹瑰嫰鎼圭憴鍕靛晥闂備礁鎼€氱兘宕归柆宥呯；鐎广儱顦伴崕宥夋煕閺囥劌澧ù鐘趁湁闁挎繂妫楅埢鏇㈡煃瑜滈崜姘跺蓟閵娧勵偨闁绘劕顕埢鏇㈡倵閿濆倹娅囨い蹇涗憾閺屾洟宕遍鐔奉伓

重磅专题

往期文章

一个ASP显示剩余磁盘空间的函数

业界热点: